home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
conversion64 1.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
768b
|
15 lines
2 print"[193][211][195][201][201] [195]onversion64 v1.0 by [194]ob [203]ober"
3 open15,8,15
4 input"[201]nput filename";fi$
5 open1,8,2,fi$:gosub14 :ifethenclose1:goto4
6 input"[207]utput filename";fo$
7 print"[195]onvert to ([208])et, or ([212])rue [193][211][195][201][201]?";
8 getc$:on-(c$=""or(c$<>"p"andc$<>"t"))goto8 :print" "c$:c=1:ifc$="p"thenc=0
9 poke2480,c
10 open2,8,1,fo$+",s":gosub14 :ifethenclose2:goto6
11 sys2481:close15
12 print:print"[195]onvert another? ([217]/[206])"
13 poke198,0:wait198,1:getc$:poke198,0:on-(c$="y")goto2 :end
14 input#15,e,er$:ifethenprint"[207][207][208][211]!"er$
15 return